home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Low Disk Space 2.xpl < prev    next >
Text File  |  2001-05-04  |  7KB  |  244 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="9"
  3. "OSVERSION"="00101"
  4. "COUNT"="1"
  5. "UIPATH"="System\File System\Windows 9x/ME Options\Misc"
  6. "NAME"="Low Disk Space"
  7. "VERSION"="2.02"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Low Disk Space 2"
  10. "DESCRIPTION 1"="You can disable Low Disk Space Notification & Auto running Disk Cleanup on one or more of your drives, by putting a checkmark by one or more of the drives on your system. This is especially useful on systems with consistently low disk space."
  11. "DESCRIPTION 2"="For further information see MSKB article: http://support.microsoft.com/support/kb/articles/q188/0/74.asp."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] for the settings."
  16. "COMMENT 2"="Thanks to Neil Turner [totalxs@hotmail.com] for turning this into a checked listbox plug-in."
  17.  
  18. sP="HKLM\System\CurrentControlSet\Control\FileSystem\DisableLowDiskSpaceBroadcast"
  19. sV="DisableLowDiskSpaceBroadcast"
  20. i=0
  21. Sub Plugin_Initialize 
  22.     Call SetUIElement(1,"Disable on drive A:\")
  23.     Call SetUIElement(2,"Disable on drive B:\")
  24.     Call SetUIElement(3,"Disable on drive C:\")
  25.     Call SetUIElement(4,"Disable on drive D:\")
  26.     Call SetUIElement(5,"Disable on drive E:\")
  27.     Call SetUIElement(6,"Disable on drive F:\")
  28.     Call SetUIElement(7,"Disable on drive G:\")
  29.     Call SetUIElement(8,"Disable on drive H:\")
  30.     Call SetUIElement(9,"Disable on drive I:\")
  31.     Call SetUIElement(10,"Disable on drive J:\")
  32.     Call SetUIElement(11,"Disable on drive K:\")
  33.     Call SetUIElement(12,"Disable on drive L:\")
  34.     Call SetUIElement(13,"Disable on drive M:\")
  35.     Call SetUIElement(14,"Disable on drive N:\")
  36.     Call SetUIElement(15,"Disable on drive O:\")
  37.     Call SetUIElement(16,"Disable on drive P:\")
  38.     Call SetUIElement(17,"Disable on drive Q:\")
  39.     Call SetUIElement(18,"Disable on drive R:\")
  40.     Call SetUIElement(19,"Disable on drive S:\")
  41.     Call SetUIElement(20,"Disable on drive T:\")
  42.     Call SetUIElement(21,"Disable on drive U:\")
  43.     Call SetUIElement(22,"Disable on drive V:\")
  44.     Call SetUIElement(23,"Disable on drive W:\")
  45.     Call SetUIElement(24,"Disable on drive X:\")
  46.     Call SetUIElement(25,"Disable on drive Y:\")
  47.     Call SetUIElement(26,"Disable on drive Z:\")
  48.  
  49.  
  50.     i=RegReadValue(sP&sV)
  51.     if IsEmpty(i)=true then
  52.        'No drives hidden - don't read anything (TeXHeX - 'hidden' has 2 d's :)
  53.     else
  54.        'not empty - check if wrong datatype
  55.        if len(i)>0 and IsNumeric(i)=true then
  56.           if i=0 then
  57.              'no drives hidden
  58.           else
  59.              'drives hidden -> read it
  60.              Call SetUI()
  61.           end if   
  62.        else
  63.           'wrong datatype!!! ignore it!          
  64.        end if 
  65.     end if
  66. End Sub
  67.  
  68.  
  69. Sub SetUI
  70.    'Arg! We got to calculate!!!
  71.  
  72.    if (i-33554432)>=0 then
  73.       Call SetUIElementEx(26,true)
  74.       i=i-33554432
  75.    end if
  76.  
  77.    if (i-16777216)>=0 then
  78.       Call SetUIElementEx(25,true)
  79.       i=i-16777216
  80.    end if
  81.  
  82.    if (i-8388608)>=0 then
  83.       Call SetUIElementEx(24,true)
  84.       i=i-8388608
  85.    end if
  86.  
  87.    if (i-4194304)>=0 then
  88.       Call SetUIElementEx(23,true)
  89.       i=i-4194304
  90.    end if
  91.  
  92.    if (i-2097152)>=0 then
  93.       Call SetUIElementEx(22,true)
  94.       i=i-2097152
  95.    end if
  96.  
  97.    if (i-1048576)>=0 then
  98.       Call SetUIElementEx(21,true)
  99.       i=i-1048576
  100.    end if
  101.  
  102.    if (i-524288)>=0 then
  103.       Call SetUIElementEx(20,true)
  104.       i=i-524288
  105.    end if
  106.  
  107.    if (i-262144)>=0 then
  108.       Call SetUIElementEx(19,true)
  109.       i=i-262144
  110.    end if
  111.  
  112.    if (i-131072)>=0 then
  113.       Call SetUIElementEx(18,true)
  114.       i=i-131072
  115.    end if
  116.  
  117.    if (i-65536)>=0 then
  118.       Call SetUIElementEx(17,true)
  119.       i=i-65536
  120.    end if
  121.  
  122.    if (i-32768)>=0 then
  123.       Call SetUIElementEx(16,true)
  124.       i=i-32768
  125.    end if
  126.  
  127.    if (i-16384)>=0 then
  128.       Call SetUIElementEx(15,true)
  129.       i=i-16384
  130.    end if
  131.  
  132.    if (i-8192)>=0 then
  133.       Call SetUIElementEx(14,true)
  134.       i=i-8292
  135.    end if
  136.  
  137.    if (i-4096)>=0 then
  138.       Call SetUIElementEx(13,true)
  139.       i=i-4096
  140.    end if
  141.  
  142.    if (i-2048)>=0 then
  143.       Call SetUIElementEx(12,true)
  144.       i=i-2048
  145.    end if
  146.  
  147.    if (i-1024)>=0 then
  148.       Call SetUIElementEx(11,true)
  149.       i=i-1024
  150.    end if
  151.  
  152.    if (i-512)>=0 then
  153.       Call SetUIElementEx(10,true)
  154.       i=i-512
  155.    end if
  156.  
  157.    if (i-256)>=0 then
  158.       Call SetUIElementEx(9,true)
  159.       i=i-256
  160.    end if
  161.  
  162.    if (i-128)>=0 then
  163.       Call SetUIElementEx(8,true)
  164.       i=i-128
  165.    end if
  166.  
  167.    if (i-64)>=0 then
  168.       Call SetUIElementEx(7,true)
  169.       i=i-64
  170.    end if
  171.  
  172.    if (i-32)>=0 then
  173.       Call SetUIElementEx(6,true)
  174.       i=i-32
  175.    end if
  176.  
  177.    if (i-16)>=0 then
  178.       Call SetUIElementEx(5,true)
  179.       i=i-16
  180.    end if
  181.  
  182.    if (i-8)>=0 then
  183.       Call SetUIElementEx(4,true)
  184.       i=i-8
  185.    end if
  186.  
  187.    if (i-4)>=0 then
  188.       Call SetUIElementEx(3,true)
  189.       i=i-4
  190.    end if
  191.  
  192.    if (i-2)>=0 then
  193.       Call SetUIElementEx(2,true)
  194.       i=i-2
  195.    end if
  196.  
  197.    if (i-1)>=0 then
  198.       Call SetUIElementEx(1,true)
  199.    end if
  200.  
  201. End Sub
  202.  
  203.  
  204. Sub Plugin_CheckData(ElementIndex)
  205. End Sub
  206.  
  207. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  208.  i=0
  209.  
  210.  if GetUIElementEx(1)=true then i=i+1
  211.  if GetUIElementEx(2)=true then i=i+2
  212.  if GetUIElementEx(3)=true then i=i+4
  213.  if GetUIElementEx(4)=true then i=i+8
  214.  if GetUIElementEx(5)=true then i=i+16
  215.  if GetUIElementEx(6)=true then i=i+32
  216.  if GetUIElementEx(7)=true then i=i+64
  217.  if GetUIElementEx(8)=true then i=i+128
  218.  if GetUIElementEx(9)=true then i=i+256
  219. if GetUIElementEx(10)=true then i=i+512
  220. if GetUIElementEx(11)=true then i=i+1024
  221. if GetUIElementEx(12)=true then i=i+2048
  222. if GetUIElementEx(13)=true then i=i+4096
  223. if GetUIElementEx(14)=true then i=i+8192
  224. if GetUIElementEx(15)=true then i=i+16384
  225. if GetUIElementEx(16)=true then i=i+32768
  226. if GetUIElementEx(17)=true then i=i+65536
  227. if GetUIElementEx(18)=true then i=i+131072
  228. if GetUIElementEx(19)=true then i=i+262144
  229. if GetUIElementEx(20)=true then i=i+524288
  230. if GetUIElementEx(21)=true then i=i+1048576
  231. if GetUIElementEx(22)=true then i=i+2097152
  232. if GetUIElementEx(23)=true then i=i+4194304
  233. if GetUIElementEx(24)=true then i=i+8388608
  234. if GetUIElementEx(25)=true then i=i+16777216
  235. if GetUIElementEx(26)=true then i=i+33554432
  236.  
  237.  
  238.  Call RegWriteValue(sP & sV,i,2)
  239.  
  240. End Sub
  241.  
  242. Sub Plugin_Terminate 
  243. End Sub
  244.